home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
tpstr.exe
/
TPSTR.INT
< prev
next >
Wrap
Text File
|
1992-11-08
|
6KB
|
116 lines
{**************************************************************************}
{ }
{ TPSTR.PAS }
{ Turbo Pascal Version 6.00 }
{ }
{ (c) 1992, RAVIART Philippe, All rights reserved. }
{**************************************************************************}
{ }
unit TpStr;interface
{**************************************************************************}
{ }
{ This Unit contains 80 procs for treating characters or strings. }
{ Please Refer to "TPSTR.DOC" for details. }
{ }
{**************************************************************************}
function StrL (L: Longint) :String;
function StrLF (L: Longint;Field: Integer) :String;
function StrR (R: Real) :String;
function StrRF (R: Real;Field: Integer) :String;
function StrRFD(R: Real;Field,Decimals: Integer) :String;
{$IFOPT N+}
function StrC (C: Comp) :String;
function StrCF (C: Comp;Field: Integer) :String;
function StrCFD(C: Comp;Field,Decimals: Integer) :String;
function StrD (D: Double) :String;
function StrDF (D: Double;Field: Integer) :String;
function StrDFD(D: Double;Field,Decimals: Integer) :String;
function StrE (E: Extended) :String;
function StrEF (E: Extended;Field: Integer) :String;
function StrEFD(E: Extended;Field,Decimals: Integer) :String;
function StrS (S: Single) :String;
function StrSF (S: Single;Field: Integer) :String;
function StrSFD(E: Single;Field,Decimals: Integer) :String;
{$ENDIF}
Procedure ChrDel (Var S: String;Match: Char);
Procedure ChrDelL(Var S: String;Match: Char);
Procedure ChrDelR(Var S: String;Match: Char);
Procedure ChrFill(Var S: String;Fill: Char;MaxLen: Byte);
Procedure ChrPadC(Var S: String;Fill: Char;MaxLen: Byte);
procedure ChrPadL(Var S: String;Fill: Char;MaxLen: Byte);
Procedure ChrPadR(Var S: String;Fill: Char;MaxLen: Byte);
Procedure ChrRepl(Var S:String;c1,c2 : Char);
Procedure ChrReplI(Var S:String;c1,c2 : Char);
function ATrim(S: String):string;
Function Copy(S:String;Index,Count: Integer):string;
Procedure Delete(Var S: String;Index,Count: Integer);
function LoCase(C: Char) :Char;
function LTrim(S: String):string;
Function Pos(Find,S: String):integer;
function Replicate(Fill: Char;MaxLen:Byte):string;
function RTrim(S: String):string;
Function Soundex(S: String):String;
function UpCase(C: Char) :Char;
Function WrdQty(S: String):Byte;
Procedure StrCat(Var Dest: String;S: String;Maxlen: Byte);
Function StrCmp(S1,S2: String):ShortInt;
Function StrCmpI(S1,S2: String):ShortInt;
Procedure StrCopy(Var Dest: String;S: String;Index,Count: Byte);
Procedure StrCut(Var S: String;MaxLen: Byte);
Procedure StrDeTab(Var Dest: String;S: String;TabSize: Byte);
Procedure StrFill(Var S: String;Fill: String;Count, MaxLen: Byte);
Procedure StrJC(Var S: String;MaxLen: Byte);
Procedure StrJL(Var S: String;MaxLen: Byte);
Procedure StrJR(Var S: String;MaxLen: Byte);
function StrLwr(S: String) :String;
Procedure StrMove(Var Dest: String;S: String);
Procedure StrOvr(Var Dest: String;S: String;Index: byte);
Procedure StrPeek(Var Dest: String;Var Source;MaxLen: Byte);
Procedure StrPoke(Var Dest;Source: String);
Procedure StrReTab(Var Dest: String;S: String;TabSize: Byte);
Procedure StrRev(Var S: String);
function StrUpr(S: String) :String;
Function IsAscii (C: Char):Boolean;
Function IsCntrl (C: Char):Boolean;
Function IsGraph (C: Char):Boolean;
Function IsPrint (C: Char):Boolean;
Function IsSigned(C: Char):Boolean;
Function IsSpace (C: Char):Boolean;
Function IsAlnum (C: Char):Boolean;
Function IsAlpha (C: Char):Boolean;
Function IsDigit (C: Char):Boolean;
Function IsDos (C: Char):Boolean;
Function IsFile (C: Char):Boolean;
Function IsLower (C: Char):Boolean;
Function IsPunct (C: Char):Boolean;
Function IsReal (C: Char):Boolean;
Function IsUpper (C: Char):Boolean;
Function IsHex (C: Char):Boolean;
Function IsPath (C: Char):Boolean;
function HEXStrToLong(Str:string):longint;
function LongHex(L : LongInt) : string;
function LongBin(L : LongInt) : string;
function LongOctal(L : LongInt) : string;
function MotHex(W : Word) : string;
function MotBin(W : Word) : string;
function MotOctal(W : Word) : string;
function OctetHex(B : Byte) : string;
function OctetBin(B : Byte) : string;
function OctetOctal(B : Byte) : string;
function PtrHex(P : Pointer) : string;
function StrToReal(Str:string):Real;
function StrToLong(Str:string):Longint;
function ValidInt(Str:string):boolean;
function ValidHInt(Str:string):boolean;
function ValidReal(Str:string):boolean;
implementation